home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / demo modul34 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  355b  |  18 lines
  1. 100 REM  TEXT IN DREIECKFORM AUSGEBEN
  2. 110 DO
  3. 120 :  PRINT "BITTE TEXT EINGEBEN" : INPUT X$ : PRINT
  4. 130 :  N=1 : Q=1
  5. 140 :  DO WHILE N>0
  6. 150 :     PRINT LEFT$(X$,N)
  7. 160 :     N=N+Q
  8. 170 :     IF N=LEN(X$) THEN Q=-1
  9. 180 :  LOOP
  10. 190 :  PRINT
  11. 200 :  DO
  12. 210 :     INPUT "NOCHMAL (J/N) ";A$
  13. 220 :     EXIT IF A$="J" OR A$="N"
  14. 230 :     PRINT "FALSCHE EINGABE"
  15. 240 :  LOOP
  16. 250 LOOP UNTIL A$="N"
  17. 260 END
  18.